home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Rinaldi / HC 2.0 Only / GlobalMaster 1.0.cpt / GlobalMaster 1.0 (US) / cards.xml < prev    next >
Text File  |  1992-04-29  |  5KB  |  86 lines
  1. card_3055.xml
  2. <?xml version="1.0" encoding="utf-8" ?>
  3. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4. <card>
  5.     <id>3055</id>
  6.     <filler1>0</filler1>
  7.     <bitmap>BMAP_3273.pbm</bitmap>
  8.     <cantDelete> <false /> </cantDelete>
  9.     <showPict> <true /> </showPict>
  10.     <dontSearch> <false /> </dontSearch>
  11.     <owner>2661</owner>
  12.     <link rel="stylesheet" type="text/css" href="stylesheet_2428.css" />
  13.     <part>
  14.         <id>1</id>
  15.         <type>field</type>
  16.         <visible> <true /> </visible>
  17.         <dontWrap> <false /> </dontWrap>
  18.         <dontSearch> <false /> </dontSearch>
  19.         <sharedText> <false /> </sharedText>
  20.         <fixedLineHeight> <true /> </fixedLineHeight>
  21.         <autoTab> <false /> </autoTab>
  22.         <lockText> <true /> </lockText>
  23.         <rect>
  24.             <left>69</left>
  25.             <top>68</top>
  26.             <right>434</right>
  27.             <bottom>252</bottom>
  28.         </rect>
  29.         <style>scrolling</style>
  30.         <autoSelect> <false /> </autoSelect>
  31.         <showLines> <false /> </showLines>
  32.         <wideMargins> <false /> </wideMargins>
  33.         <multipleLines> <false /> </multipleLines>
  34.         <reservedFamily> 0 </reservedFamily>
  35.         <titleWidth>0</titleWidth>
  36.         <icon>0</icon>
  37.         <textAlign>left</textAlign>
  38.         <font>Geneva</font>
  39.         <textSize>9</textSize>
  40.         <textStyle>plain</textStyle>
  41.         <textHeight>12</textHeight>
  42.         <name>Text</name>
  43.         <script></script>
  44.     </part>
  45.     <part>
  46.         <id>5</id>
  47.         <type>button</type>
  48.         <visible> <true /> </visible>
  49.         <reserved5> 0 </reserved5>
  50.         <reserved4> 0 </reserved4>
  51.         <reserved3> 0 </reserved3>
  52.         <reserved2> 0 </reserved2>
  53.         <reserved1> 0 </reserved1>
  54.         <enabled> <true /> </enabled>
  55.         <rect>
  56.             <left>174</left>
  57.             <top>281</top>
  58.             <right>343</right>
  59.             <bottom>311</bottom>
  60.         </rect>
  61.         <style>roundrect</style>
  62.         <showName> <true /> </showName>
  63.         <highlight> <false /> </highlight>
  64.         <autoHighlight> <true /> </autoHighlight>
  65.         <sharedHighlight> <true /> </sharedHighlight>
  66.         <family>0</family>
  67.         <titleWidth>0</titleWidth>
  68.         <icon>0</icon>
  69.         <textAlign>center</textAlign>
  70.         <font>Chicago</font>
  71.         <textSize>12</textSize>
  72.         <textStyle>plain</textStyle>
  73.         <name>SaveCurrentGlobals</name>
  74.         <script>on mouseUpglobal GlobalVarsList,GlobalVar1,GlobalVar2set loc of window "Variable Watcher" to "0,18"set rect of window "Variable Watcher" to "0,0,300,60"set hbarloc of window "variable watcher" to 58show variable watcherput "Saving current global variables"SaveCurrentGlobalshide variable watchershow variable watcherwait 2 secsput "Creating global variables ‚ÄúGlobalVar1‚Äù et ‚ÄúGlobalVar2‚Äù"put "Something" into GlobalVar1put "Something else" into GlobalVar2hide variable watchershow variable watcherwait 2 secsput "Purging global variables ‚ÄúGlobalVar1‚Äù et ‚ÄúGlobalVar2‚Äù"ClearStackGLobalshide variable watchershow variable watcherwait 2 secshide variable watcherput emptyhide msgend mouseUp</script>
  75.     </part>
  76.     <content>
  77.         <layer>card</layer>
  78.         <id>1</id>
  79.         <text>                                         GlobalMaster stack                                         by Fr√©d√©ric RINALDI   This stack contains two XCMDs which allow to easily purge all global variables created by the stack. They work only with HyperCard 2.0.                                      SaveCurrentGlobals 1.0DESCRIPTION------------   SaveCurrentGlobals saves the list of current active globals.SYNTAX-------                                        SaveCurrentGlobalsPARAMETERS------------   Using "!" and "?" as parameter will return an online help (resp. copyright and syntax).USING-----   SaveCurrentGlobals must appear in the "on openStack" handler before any global variable setting.    The XCMD creates a global named GlobalVarsList which will be used later by ClearStackGlobals XCMD.If an error occurs, SaveCurrentGlobals can return :     "Error : Out of Memory"                                        ClearStackGlobals 1.0DESCRIPTION------------   ClearStackGlobals purges all global variables created since call to SaveStackGlobals.SYNTAX--------                                           ClearStackGlobalsPARAMETERS------------   Using "!" and "?" as parameter will return an online help (resp. copyright and syntax).USING------   ClearStackGlobals will generally be located in the "on closeStack" handler.   The XCMD uses the global variable GlobalVarsList created earlier by SaveCurrentGlobals to find globals that must be cleared.--------------------------------------------------------------------This (these) external(s) is (are) FreeWare,allowing unlimited use in any non-commercial stack. You just need in this case to mention the author's name and copyright in your stack.Any commercial use must be licensed and aknowledged by the author.                                  ¬© F. Rinaldi - 1989,1990AppleLink: RINALDI1        CalvaCom : FR10        Compuserve : 71170,2111</text>
  80.     </content>
  81.     <name></name>
  82.     <script></script>
  83. </card>
  84.  
  85.  
  86.